<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in.app</name>
<id>-1</id>
<cardCount>1</cardCount>
<cardID>2994</cardID>
<listID>2440</listID>
<cantModify><true /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><true /></cantAbort>
<cardSize>
<width>352</width>
<height>408</height>
</cardSize>
<script>-------------------------------------------------------------------------------------Aztech Viewer v.2.0 - Underwater Collection©1994 Aztech New Media Corp.Written and Designed by Dario BadiaJune 2,1994.-------------------------------------------------------------------------------------on initializeMainGlobals -- specific globals for each collectionglobal collectionTitle,collectionCatalogPath,fetchPath,hiResPath,lowResPathput "Aztech’s Underwater Realms™ Collection" into collectionTitle -- title for printoutput "UWR_I:FOR_MAC:UWR_I.FTC;1" into collectionCatalogPath -- the path to the catalogput "UWR_I:FOR_MAC:FETCH.APP;1" into fetchPath -- the path to the Fetch browserput "UWR_I:HI_RES:" into hiResPath -- the path to the hi res folderput "UWR_I:LOW_RES:" into lowResPath -- the path to the low res folderend initializeMainGlobalson startup -- works only with System 7.0if systemVersion() < 7.0 thenanswer "This Viewer runs only under System 7.0 or greater. Please upgrade your"¬&&"system software and try again." with "Quit"doMenu ("Quit HyperCard")lock messagesexit startupend ifpass startupend startupon openStackglobal howManyPics,namesDBinitializeMainGlobalsmenusAddColor install--read the file names databaseput (number of lines in cd field "DB") div 2 into howManyPicsput empty into namesDBput empty into cd button "display popup"put 1 into xrepeat for howManyPicsput namesDB & (line x of cd field "DB") & tab & (line x+1 of cd field "DB") & return into namesDBput (line x of cd field "DB") into line ((x+1) div 2) of cd button "display popup"add 2 to xend repeatpass openStackend openStackon colorMeAddColor colorCard,dissolve,30end colorMeon closeStackAddColor removepass closeStackend closeStackon menusglobal frontWindow,transitionif the environment is "Player" thendelete menu "Style"delete menu "Font"delete menu "Go"delete menu "Edit"delete menu "File"create menu "File"put "Edit Original…" into menu "File" with menuMsg "openOriginal"put "Launch Catalog" after menu "File" with menuMsg "openCatalog"put "Print Annotations" after menu "File" with menuMsg "printAnnotations"put "-" after menu "File"put "Quit" after menu "File"set the commandChar of menuItem "Print Annotations" of menu "File" to "P"set the commandChar of menuItem "Quit" of menu "File" to "Q"end ifcreate menu "View"put "Next" into menu "View"put "Previous" after menu "View"put "Play Forward" after menu "View"put "Play Backward " after menu "View"put "Pause…" after menu "View"put "Stop" after menu "View"put "-" after menu "View"put "Full Size" after menu "View"put "-" after menu "View"put "Show Thumbnails Palette" after menu "View"set the enabled of menuItem "Stop" of menu "View" to falseset the commandChar of menuItem "Stop" of menu "View" to "K"create menu "Transition"put "None,Slide,Dissolve,Rectangle,Slide Bars,Checker Board,Barn Door,Blinds" after menu "Transition"set the checkmark of menuItem "None" of menu "Transition" to trueput "stamp" into transitioncreate menu "Utilities"put "Find First…" after menu "Utilities"put "Find Next" after menu "Utilities"put "-" after menu "Utilities"put "Sort by File Name" after menu "Utilities" with menuMsg "sortByName"put "Sort by Annotation" after menu "Utilities" with menuMsg "sortByAnnotation"set the commandChar of menuItem "Find First…" of menu "Utilities" to "F"set the commandChar of menuItem "Find Next" of menu "Utilities" to "G"set the checkmark of menuItem "Sort by File Name" of menu "Utilities" to trueset the checkmark of menuItem "Sort by Annotation" of menu "Utilities" to falsecreate menu "Window"put "Close" after menu "Window" with menuMsg "close window frontWindow"put "Close All" after menu "Window" with menuMsg "closeAllWindows"put "-" after menu "Window"put "Viewer" after menu "Window" with menuMsg "bringUpViewer"set the commandChar of menuItem "Close" of menu "Window" to "W"set the commandChar of menuItem "Close All" of menu "Window" to "R"set the checkmark of menuItem "Viewer" of menu "Window" to trueset the enabled of menuItem "Close" of menu "Window" to falseset the enabled of menuItem "Close All" of menu "Window" to falseput "Viewer" into frontWindowset name of menuItem 1 of menu "Apple" to "About Viewer…"end menuson printAnnotationsglobal namesDB,howManyPics,collectionTitleanswer "Print annotations to current selected printer?" with "Cancel","OK"if it is not "OK" then exit printAnnotationsset cursor to busyput collectionTitle & return & return into cd field "infoDB field"set the itemDelimiter to tabput false into reSortif the checkMark of menuItem "Sort by Annotation" of menu "Utilities" thensort lines of namesDB by item 1 of eachput true into reSortend ifrepeat with x=1 to howManyPicsset cursor to busyput (item 1 of line x of namesDB)&": "&(item 2 of line x of namesDB) into line x+3 of cd field "infoDB field"end repeatif reSort then sort lines of namesDB by item 2 of eachset the textFont of cd field "infoDB field" to "Helvetica"set the textSize of cd field "infoDB field" to 10set the textStyle of cd field "infoDB field" to plainset the textSize of line 1 of cd field "infoDB field" to 18set the textStyle of line 1 of cd field "infoDB field" to Boldprint cd field "infoDB field"set the itemDelimiter to commaend printAnnotationson openCatalogglobal collectionCatalogPath,fetchPathif there is not a disk "UWR_I" thenanswer "The Underwater Realms CD has to be mounted in order to launch the catalog." with "Cancel"exit openCatalogelseopen collectionCatalogPath with fetchPathend ifend openCatalogon showCreditspicture "About",resource,dialog,false,,trueif the result is empty thenset the loc of window "About" to "47,77"show window "About"wait until mouseClick()close window "About"end ifend showCredits</script>
